home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / ELECTRIC / DSPICE0S.ZIP / getm4.c < prev    next >
C/C++ Source or Header  |  1992-11-22  |  1KB  |  45 lines
  1. /* getm4.f -- translated by f2c (version of 3 February 1990  3:36:42).
  2.    You must link the resulting object file with the libraries:
  3.     -lF77 -lI77 -lm -lc   (in that order)
  4. */
  5.  
  6. #include "f2c.h"
  7.  
  8. /* Common Block Declarations */
  9.  
  10. struct {
  11.     doublereal cpyknt;
  12.     integer istack[1], lorg, icore, maxcor, maxuse, memavl, ldval, numblk, 
  13.         loctab, ltab, ifwa, nwoff, ntab, maxmem, memerr, nwd4, nwd8, 
  14.         nwd16;
  15. } memmgr_;
  16.  
  17. #define memmgr_1 memmgr_
  18.  
  19. /*<       subroutine getm4(ipntr,ksize) >*/
  20. /* Subroutine */ int getm4_(ipntr, ksize)
  21. integer *ipntr, *ksize;
  22. {
  23.     extern /* Subroutine */ int getmx_();
  24.     static integer iwsize;
  25.  
  26.     /* Parameter adjustments */
  27.     --ipntr;
  28.  
  29.     /* Function Body */
  30. /*<       implicit double precision (a-h,o-z) >*/
  31. /* spice version 2g.6  sccsid=memmgr 3/15/83 */
  32. /*<       common /memmgr/ cpyknt,istack(1),lorg,icore,maxcor,maxuse,memavl, >*/
  33. /*<      1   ldval,numblk,loctab,ltab,ifwa,nwoff,ntab,maxmem,memerr,nwd4, >*/
  34. /*<      2   nwd8,nwd16 >*/
  35. /*<       dimension ipntr(1) >*/
  36. /*<       iwsize=nwd4 >*/
  37.     iwsize = memmgr_1.nwd4;
  38. /*<       call getmx(ipntr(1),ksize,iwsize) >*/
  39.     getmx_(&ipntr[1], ksize, &iwsize);
  40. /*<       return >*/
  41.     return 0;
  42. /*<       end >*/
  43. } /* getm4_ */
  44.  
  45.